5 REM REPEAT THE SEQUENCE C.1982 ZOLTAN SZEPESI
10 REM 2611 SAYBROOK DRIVE  PITTSBURGH,PA 15235
14 REM**INITIALISATION*****************
15 POKE53281,0:DIMK(32):G=0:TT=0:PRINT""
20 PRINT"[147]**FOUR WAYS TO PLAY:                        1.OWN MADE SEQUENCE"
25 PRINT"    2.REPEATING SEQUENCE
30 [153]"    3.CHANGING SEQUENCE                     4.SINGLE FLASHES"
35 [153]"**PRESS THE NUMBER:";
40 [161]A$:[139]A$[178]""[167]40
45 X[178][197](A$):[153]X
50 [153]"**FOR INCREASING DIFFICULTY LEVEL         PRESS F1, F3,F5 OR F7"
55 [161]A$:[139]A$[178]""[167]55
60 [139]A$[178][199](133)[167]T1[178]100:N1[178]4:T2[178]5
65 [139]A$[178][199](134)[167]T1[178]50:N1[178]8:T2[178]3
70 [139]A$[178][199](135)[167]T1[178]10:N1[178]16:T2[178]2
75 [139]A$[178][199](136)[167]T1[178]1:N1[178]32:T2[178]1
80 B$[178]"CLR":C$[178]"  PURPLE   GREEN   BLUE   SYSYELLOW"
85 V[178]54296:WA[178]54276:A[178]54277:SR[178]54278:HF[178]54273:LF[178]54272
90 PH[178]54275:PL[178]54274:S[178]1227:CO[178]55499
95 NM[178]1:G[178]G[170]1:Q[178]0
100 [153]"LOAD"B$C$:W[178][187]([171]TI)
105 [145]X[137]200,250,300,350
199 [143]**OWN MADE SEQUENCES************
200 [153]"C-64 GIVES THE FIRST   COLOR":N[178]1:K(1)[178][181]([187](1)[172]4):[141]400
205 [141]450:[139]Q[179][177]0[167]700
210 NM[178]NM[170]1:N[178]NM:[153]"ADD A NEW COLOR":T3[178]TI
215 [161]A$:[139]A$[178]""[175]TI[171]T3[179]T2[172]60[167]215
220 [139]TI[171]T3[177]T2[172]50[167]500
225 K(N)[178][197](A$)[171]5:[141]400:[141]450:[139]Q[179][177]0[167]700
230 [137]210
249 [143]**REPEATING SEQUENCES***********
250 [153]"C-64 GIVES THE SEQUENCE":N[178]NM:K(N)[178][181]([187](1)[172]4):[141]400
255 [141]450:[139]Q[179][177]0[167]700
260 [129]I[178]1[164]800:[130]
265 [129]N[178]1[164]NM:[153]"C-64 GIVES THE SEQUENCE":[141]400:[130]N
270 NM[178]NM[170]1:[137]250
275 [129]I[178]1[164]800:[130]
299 [143]**CHANGING SEQUENCES************
300 [129]N[178]1[164]NM:[153]"C-64 GIVES THE SEQUENCE":K(N)[178][181]([187](1)[172]4)
305 [141]400:[130]N:[141]450:[139]Q[179][177]0[167]700
310 [129]I[178]1[164]800:[130]I:NM[178]NM[170]1:[137]300
349 [143]**SINGLE FLASHES****************
350 P[178]1
355 T2[178]1:N[178]1:K(N)[178][181]([187](1)[172]4):[141]400:[141]450:[139]Q[179][177]0[167]700
360 [129]I[178]1[164]400:[130]I:NM[178]1:N[178]1:P[178]P[170]1:[137]355
399 [143]**FLASHING COLOR AND SOUND******
400 [151]V,15:[151]A,0:[151]SR,240:[151]HF,20[170]K(N)[172]5:[151]LF,10:[151]WA,17
405 [153]""B$[170]"STEP NUMBER:";:[139]X[178]4[167][153]P:[137]415
410 [153]N
415 [129]J[178]0[164]3:[129]L[178]CO[170]J[172]40[170]8[172]K(N)[164]L[170]4:[151]L,K(N)[170]4:[130]L,J
420 [129]J[178]0[164]3:[129]I[178]S[170]J[172]40[170]8[172]K(N)[164]I[170]4:[151]I,160:[130]I,J
425 [129]J[178]0[164]T1:[130]J:[151]WA,16
430 [153]"LOAD"B$C$
435 [142]
449 [143]**REPEAT THE SEQUENCE***********
450 [129]N[178]1[164]NM:[153]"REPEAT THE SEQUENCE":T3[178]TI
455 [161]A$:[139]A$[178]""[175]TI[171]T3[179]T2[172]60[167]455
460 [139]TI[171]T3[177]T2[172]55[167]Q[178]1:[142]
465 Y[178][197](A$):[139]Y[171]5[179][177]K(N)[167]Q[178]2:[142]
470 [139]Y[171]5[178]K(N)[167][141]400:[130]N
475 [139]X[178]4[167]N[178]P[170]1
480 [139]N[178]N1[170]1[167]Q[178]3:[142]
485 [142]
499 [143] ERROR MESSAGES*****************
500 [153]"LOAD*YOU LOST-YOU WERE NOT FAST ENOUGH":[137]515
510 [153]"LOAD**ERROR-YOU LOST"
515 NS[178]1:[129]N[178]1[164]1:[130]N:[139]X[178]4[167]NM[178]P
520 [153]" "NM[171]1"STEPS WERE CORRECT":[153]"  NO. OF GAMES:"G
524 [143] **5-TH SYMPHONY****************
525 [129]L[178]54272[164]54296:[151]L,0:[130]
530 [151]V,15:[151]A,0:[151]SR,240:[140]
535 [135]H:[139]H[178][171]1[167][129]L[178]54272[164]54296:[151]L,0:[130]:[137]600
540 [135]L:[135]D:[151]HF,H:[151]LF,L:[151]WA,17:[139]NS[178]1[167][151]WA,129
545 [129]T[178]1[164]D:[130]:[151]WA,16:[139]NS[178]1[167][151]WA,128
550 [129]T[178]1[164]50:[130]:[137]535
555 [131]25,177,100,25,177,100,25,177,100,20,100,800,0,0,250
560 [131]22,227,100,22,227,100,22,227,100,19,63,800,-1
565 [143]**CORRECTLY FINISHED************
570 [153]"LOAD**CONGRATULATIONS.YOU FINISHED            WITH"N1;"POINTS."
575 [153]"  NO. OF GAMES:"G:TT[178]TT[170]N1:[153]"**YOUR TOTAL IS:"TT"POINTS":NS[178]0
580 [137]525
599 [143]**SEE THE LAST SEQUENCE*********
600 [139]X[178]3[176]X[178]4[167]650
605 [139]NM[178]1[175](X[178]1[176]X[178]2)[167]650
610 [153]"**DO YOU WANT TO SEE THE LAST             SEQUENCE (Y/N)?"
615 [161]A$:[139]A$[178]""[167]615
620 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167]615
625 [139]A$[178]"Y"[167] [153]"LOAD"B$C$
630 [139]A$[178]"N"[167]650
635 [139]N[178]N1[170]1[167]NM[178]NM[170]1
640 [129]N[178]1[164]NM[171]1:[141]400:[130]N
649 [143]**WANT TO CONTINUE?*************
650 [153]"LOAD*DO YOU WANT TO                            1.CONTINUE SAME WAY"
655 [153]"   2.CONTINUE WITH CHANGED CONDITIONS      3.FINISH."
657 [153] "*PRESS THE NUMBER"
660 [161]A$:[139]A$[178]""[167]660
665 Y[178][197](A$):[139]Y[179][177]1[175]Y[179][177]2[175]Y[179][177]3[167]660
670 [145]Y[137]95,675,680
675 [137]20
680 [151]V,0:[151]WA,0:[128]
699 [143]**FOR STACK CLEARING************
700 [139]Q[178]1[167]Q[178]0:[137]500
705 [139]Q[178]2[167]Q[178]0:[137]510
710 [139]Q[178]3[167]Q[178]0:[137]570